Private Sub Command1_Click()
If (CheckSelect.Value = vbChecked) Then
   Clipboard.SetText (Text1.SelText)
Else
   Clipboard.SetText (Text1.Text)
End If

End Sub

Private Sub Command2_Click()
Text2.Text = Clipboard.GetText

End Sub

Private Sub Command3_Click()
If (CheckSelect.Value = vbChecked) Then
   Clipboard.SetText (Text1.SelText)
   Text1.SelText = ""
Else
   Clipboard.SetText (Text1.Text)
   Text1.Text = ""
End If
End Sub

Private Sub Command4_Click()
Clipboard.Clear
End Sub
